home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / thinkRef.tcl < prev    next >
Text File  |  1995-03-18  |  2KB  |  70 lines
  1. #================================================================================
  2. # THINK Ref
  3. #================================================================================
  4.  
  5. proc thinkRefMenu {} {}
  6.  
  7. menu -n $thinkRefMenu {
  8.     "gotoReference"
  9.     "(-"
  10.     "displayTrapTemplate"
  11.     "insertTrapTemplate"
  12.     "/L<O<UlookupTrap"
  13. }
  14.  
  15.  
  16.  
  17. set lastTrap {}
  18.  
  19. proc insertTrapTemplate {} {
  20.     global lastTrap
  21.  
  22.     if {![string length [checkRunning ThinkReference DanR referencePath]]} return
  23.     set text [getSelect]
  24.     if {![string length $text]} {
  25.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  26.     } else {
  27.         deleteText [getPos] [selEnd]
  28.     }
  29.     set lastTrap $text
  30.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "╥$text╙"]
  31.     regexp {╥.*╙} $res one
  32.     insertText [string trim $one {╥╙}]
  33. }
  34.  
  35. proc displayTrapTemplate {} {
  36.     global lastTrap
  37.  
  38.     if {![string length [checkRunning ThinkReference DanR referencePath]]} return
  39.     set text {}
  40.     catch {set text [getSelect]}
  41.     if {![string length $text]} {
  42.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  43.     }
  44.     set lastTrap $text
  45.  
  46.     set res [AEBuild -r {'DanR'} DanR {TMPL} "----" "╥$text╙"]
  47.     regexp {╥.*╙} $res one
  48.     alertnote [string trim $one {╥╙}]
  49. }
  50.  
  51. proc lookupTrap {} {
  52.     global lastTrap
  53.  
  54.     if {![string length [checkRunning ThinkReference DanR referencePath]]} return
  55.     set text {}
  56.     catch {set text [getSelect]}
  57.     if {![string length $text]} {
  58.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  59.     }
  60.     set lastTrap $text
  61.     set num 0
  62.     AEBuild {'DanR'} DanR {REF } "----" "╥$text╙"
  63. }
  64.  
  65. proc gotoReference {} {
  66.     catch {switchTo [checkRunning ThinkReference DanR referencePath]}
  67. }
  68.  
  69.  
  70.